perm filename SELIPX.F4[SAB,LCS]1 blob sn#349457 filedate 1978-04-16 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	C       PROGRAM SELIP       
C00004 ENDMK
CāŠ—;
C       PROGRAM SELIP       
	DIMENSION IBUF(5000)
	COMMON/FAC/JFAC,KFAC
	JFAC=80 
	KFAC=80 
	CALL PLOTS(IBUF, 5000,1)
	CALL PLOT(15.,14.75,-3)
	A=6.
	B=2.8
       	DO 10 J=1,20
	CX=(RAN(K)*10.)-5.
	CY=(RAN(K)*10.)-4.
    	ANG=(RAN(K)*60.)-30
CC	PAUSE     
                 
1	CALL ELLIP2(A,B,CX,CY,ANG)
	CALL DPYOUT(1)
     	A=.9*A           
       	B=.9*B          
10	CONTINUE
	CALL PLOT(0.,-30.,-3)
	CALL PLOT(0.,0.,999)
 	STOP
	END